home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
gt_power
/
mailbats.zip
/
MAILDIST.BAT
< prev
next >
Wrap
DOS Batch File
|
1990-12-11
|
2KB
|
48 lines
:MAILDIST.BAT - BATCH FILE TO DISTRIBUTE INCOMING MAIL
ECHO OFF
GTCD>NUL
ECHO
╒═════════════════════════════════════════════════════╕
ECHO
│ INITIATING MAIL DIST │
ECHO
╘═════════════════════════════════════════════════════╛
@TRACE DISTRIBUTING MAIL FOR MAIL-%1 //%GTPATH%\GTMAIL.LOG >NUL
IF "%1" == "" GOTO NO_PARM
GOTO PARM_OK
:NO_PARM
ECHO
REQUIRED Parameter not specified
ECHO
ECHO Usage is MAILDIST XXX
ECHO where XXX is a 3 character log identifier
ECHO seven optional parameters may also be passed
ECHO
ECHO Your imput was: MAILDIST %1
ECHO
GOTO QUIT
:PARM_OK
CD\MAILIN
IF EXIST G0*.* GOTO IS_MAIL
IF EXIST B0*.* GOTO IS_MAIL
IF EXIST E*.E* GOTO IS_MAIL
IF EXIST Q*.E* GOTO IS_MAIL
ECHO
ECHO
There is NO mail to unbag in \MAILIN
ECHO
GOTO QUIT
:IS_MAIL
ECHO
╒═════════════════════════════════════════════════════╕
ECHO
│ DISTRIBUTING INCOMING MAIL FOR NETMAIL MAIL-%1 │
ECHO
╘═════════════════════════════════════════════════════╛
ECHO
CONCOPY %GTPATH%\MAIL-%1.LOG MDIST412 /D7 /SA
ECHO
BE ASK "Do you want to run LOG update?" yn def=y timeout=5
IF ERRORLEVEL=2 GOTO ALL_DONE
TRACE .....Mail distribution complete //%GTPATH%\MAIL-%1.LOG >NUL
DUPS
TRACE .....Removing duplicate msgs //%GTPATH%\MAIL-%1.LOG >NUL
ECHO
╒═════════════════════════════════════════════════════╕
ECHO
│ MAIL DISTRIBUTION COMPLETE FOR MAIL-%1 │
ECHO
╘═════════════════════════════════════════════════════╛
@TRACE .....Completing mail distribution //%GTPATH%\GTMAIL.LOG >NUL
:QUIT
:ALL_DONE